IsOutOfGridFloat Function

private function IsOutOfGridFloat(i, j, grid)

calculates if cell is out of grid space limits

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i
integer, intent(in) :: j
type(grid_real), intent(in) :: grid

Return Value logical


Source Code

LOGICAL FUNCTION IsOutOfGridFloat &
!
(i, j, grid) 

IMPLICIT NONE

!Arguments with intent in:
INTEGER, INTENT(IN) :: i,j
TYPE (grid_real), INTENT(IN) :: grid

!----------------------end of declarations-------------------------------------

 IF (i > grid % idim .OR. j > grid % jdim .OR. i < 1 .OR. j < 1) THEN
      IsOutOfGridFloat = .TRUE.
 ELSE
      IsOutOfGridFloat = .FALSE.
 ENDIF

END FUNCTION IsOutOfGridFloat